home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00052_SHIFTHEAD.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  555 b   |  19 lines
  1. on SHIFTHEAD
  2.   global GRIDV, GRIDH, GRIDY, TURN
  3.   repeat with N = 1 to 140
  4.     if (TURN = 2) and (getAt(GRIDV, N) = 3) then
  5.       set the locH of sprite 29 to getAt(GRIDH, N)
  6.       set the locV of sprite 29 to getAt(GRIDY, N)
  7.       set the castNum of sprite 29 to 70
  8.       updateStage()
  9.     end if
  10.     if (TURN = 1) and (getAt(GRIDV, N) = 2) then
  11.       set the locH of sprite 10 to getAt(GRIDH, N)
  12.       set the locV of sprite 10 to getAt(GRIDY, N)
  13.       set the castNum of sprite 10 to 69
  14.       updateStage()
  15.     end if
  16.   end repeat
  17.   REMOVESPRITE()
  18. end
  19.